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MODULE STRSPREFIX (! Prefix a string to the beginning of the destination | 
IDENT = '1-007" ! File: STRPREFIX.B32 Edit: DG1007 


)ez 
BEGIN 


' 
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'® COPYRIGHT (c) 1978, 1980. 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


® 
® 
® 
*® 
' t 
ies THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
* 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. . 
* 
*® 
* 
® 
® 
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00 '® 
! 
008 siemens inna em ila erect 
00 : 
003 
003 '+4 
O38 ! FACILITY: String support Library 
003 i ABSTRACT: Risk 
003 : This routine prefixes the input ye onto the beginning of the 
003 the destination string. It will handle strings of any supported 
003 dtype or class. 
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' 

i] 

' 

i] 

4 

' 

' 

Ohad ; ENVIRONMENT: User mode, AST Level or not or mixed 
g 004 { AUTHOR: R. Will, CREATION DATE: 1-Dec-79 
4 Boee : 
5 045 ! MODIFIED BY: 
6 0046 ’ 
7 0047 ! R. Will, 1-Dec-79 : VERSION 01 
8 0048 ! 1-001 = Original 
9 0049 ; 1-206 - String speedup, status from macros. RW 11-Jan-1980 
0 0050 ! 1-005 = Enhance to recognize additional classes of descriptors by 
1 0051 : using SSTRSGET_LEN_ADDR to extract length and address 
§ 0036 : of 1st byte of data of source string. Remove string 
005 : interlocking code. RKR 22-APR-81, 

4 054 ! 1-004 - Fix bug in code where class_vs destination must be truncated. 
5 055 : inen sever ce geee). 
6 056 1 | RKR 25-AUG~19 | 
7 005 ! 1-005 = Speed up code. RKR 7-0CT-1981. 


; $65 o06¢ 1! 

; 664 0065 1 ! SWITCHES: 

s 0064 1! 

; & 0065 1 

g. OF R208 1 SWITCHES ADDRESSING_MODE 

; 0067 1 (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; wo 0068 1 

; 4 1! 

ky 070 1 ! LINKAGES: 

28 0071 1! 

; £ 0072 1 

3 ee st 1 REQUIRE "RTLIN:STRLNK'; ! Use require file with string Linkages 
; 0259 1 ! 

: 77 0260 1 ! TABLE OF CONTENTS: 

: 0261 1! 

TED o , bsg 1 

: 80 026 1 FORWARD ROUTINE 

;. 3 0264 1 STRSPREF IX; ! pretss the input string to the 
:. & 0265 1 ! beginning of the destination string 
; 83 0266 1 

; 84 0267 1! 

: 85 0268 1 ! INCLUDE FILES: 

3; 0269 1! 

oe 0270 1 

; 8 0271 1 REQUIRE "RILIN:RTLPSECT'; ! Declare PSECTS code ; 

; BF 0366 1 REQUIRE ‘RTLIN:STRMACROS'; ! use string macros to write code 
3 + 1386 : LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbols 
;; 12846 1! 

; 93 1285 1 ! MACROS : NONE 

: | «(94 1286 1! 

..- 1287 1 

; & 1288 1! 

; 97 1289 1 ! EQUATED SYMBOLS: NONE 

; 1290 1! 

; WF 1291 1 

; 100 1636 7% 

; 307 1295 1 ! PSECT DECLARATIONS 

3 105 1294 1! 

; 10 1295 1 

; 104 1296 1 DECLARE_PSECTS (STR); 

: 105 1297 1 

: 106 1298 1! 

3; 107 1299 1 ! OWN STORAGE: NONE 

; 103 1300 1! 

3: 109 1301 1 

: 110 1308 1! 

s 90% 1303 1 ! EXTERNAL REFERENCES: 

3 6 1306 1! 

Se 1305 1 EXTERNAL LITERAL 

3; (114 1306 1 STRS_ILLSTRCLA, ! signal illegal class error 
s 795 1307 1 STRS_TRU, ! warning, truncation 

; : 08 \ STR$_NORMAL ; ! successful append 

s 118 1310 1 EXTERNAL ROUTINE . 

s 119 1311 «1 LIBSSTOP; ! signal errors 


3 
STRSPREF IX 1$-se 1984 01:46:1 AX-11 Bliss-32 V4.0-74 
1-007 10388-1382 93:08:13 HOTARTL  SREISTRPREFIX.B92;1 


P 
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d 3 
STRSPREF IX 16-Sep-1984 01:46:1 AX=11 Bliss-32 V4.0-74 Page 4) 
1-007 12-Sep-19 4 93328513 CIBRTL’ SREISTAPREF 4x 692: 1 . (3) 
: } 1 ’ ig ! GLOBAL ROUTINE STRSPREFIX ( ! Prefix a string to the start of another 
‘ 5 1314 1 DEST _DESC, ! pointer to destination descriptor 
> 126 1315 1 SRC_BESC ! pointer to source descriptor 
s 125 1 16 1 
5 le 1317 1 )= 
: 127 1318 1 
: 128 1319 1 !4+ 
: : , : 31 : FUNCTIONAL DESCRIPTION: 
; 135) 1 ¢ 1} This routine takes a source string of any supported dtype and 
: 136 1 § 1 ! class, and prefixes that pty: to the beginning of the 
3; 1 13246 1! destination string, which may be of any supported class or | 
; «(134 1325 1! dtype , except that it is impossible to add something to the 
3 339 1326 1! ae ng of a opr ine having fixed length semantics so an error 
3 136 1350 : will always be signalled in that case 
o . | 
; i338 1368 1 ! FORMAL PARAMETERS: 
: «139 1330 1! 
: 140 1331 1! DEST _DESC.wt.dx pointer to destination descriptor 
: 14) 133 ! SRC_BESC.rt.dx pointer to source descriptor 
; 128 1334 1 =! IMPLICIT INPUTS: 
> 144 1335 1! 
s 145 1336 1! NONE 
: 6146 1337 1! 
3 «147 1338 1 ! IMPLICIT OUTPUTS: 
; «148 1339 1! 
3: «6149 1340 1! NONE 
; 13 1341 1! 
gs TS) 1306 1 ! COMPLETION CODES: 
: 136 1343 1! 
; iF a zz STRS_NORMAL Success. : 
3 «6154 1345 1! STR$_TRU Truncation occurred. Warning. 
s %35 1346 1! 
: 156 1347 1 ! SIDE EFFECTS: 
5 S57 1348 1! : | 
; 158 1349 1! STRS_ILLSTRCLA may be signalled if the destination string has 
; 6159 1350 1! fixed Length semantics or undefined class. 
; 1¢9 132) : Dynamic string space may be allocated or deallocated 
3 166 1388 1 !e< 
3 1354 1 
3; 164 132? BEGIN 
; 165 1 $ 
: 166 132 LOCAL : 
s 67 1358 IN_LEN, ' Length of source string : 
; 168 1359 IN_ADDR ' address of Ist byte of source string 
3; 169 1360 RETURN_STATUS; ! statuses from macros 
s 170 1361 
3s 171 1 66 MAP 
; 176 1 SRC_DESC : REF S$STRSDESCRIPTOR, 
; it? ' ee DEST_DESC : REF $STRSDESCRIPTOR; 
3 i 1 4] RETURN_STATUS = 1 ; ! Assume success to follow 
: 1% 136 
: 177 1368 !¢ 


3 
-Sep- 746: - iss-32 V4.0-74 Page 5 
egprer JCREIOREAUEESTEUNGH SMES Hdokt7e 3 


: ! h and address of ist data byte of source string. 

: 179 i $8 i ete et ey Re error results. 

2 ” 

18) i re SSTRSGET_LEN_ADDR ( SRC_DESC, IN_LEN, IN_ADDR) ; | 
> 18 137 | 
: 188 i a | eleortehe differs based on the class of the destination descriptor | 
> 185 1308 i 

; 186 137 

: .DEST_DESC CDSC$B_CLASS) 

: 188 1 8 FROM bSeSK-CEASS 7 TO BSC$K_CLASS_SB OF 

: 189 1380 SET 

; 190 : 1 a 

; 193 1 HY i dynamic destination strings 

° 136 1384 | geeerterrerereeaeereeeeneee 

; 194 #4 ie 

es 

: CDSC$K_CLASS_D): 

im Oe i 

ie (BLISS36) 

; #199 L 1390 ait seLiss (BLISS16) OR ZBLISS (BLI 7a 

; of U 1392 SSTRSOVERLAP ( ' If dest overlaps 

; 03 u i 3 -DEST_DESC pescee.Potaresy. are Gare it will be 

> 20 U 139% -DEST DESC CDS WeLENGTH Sc | 
: $08 U 1335 — «DEST pESe EDS $u-L ENGTID, 

: 06 U He -DEST_DESC CDSCS$SW_LENGTH)) 

: 207 U 1398 OR 

; $9 1200 a ' if dest will be 

: 09 P 1400 SSTRSOVERLAP ( : tA He gh 

: 1 4 1202 IN_ADDR, ' source when moved 

; ig 4 1408 CHSPLUS’ (DEST DESC CDSCSA_POINTER], .IN_ADDR), | 
: St 5 4 -DEST_DESC CDSC$W_LENGTH)) 

; $i 120 2 . ' or if destination not 

; sie 1209 : * ' Large enough for | 
: ( ' prefix 

: 4 4 1409 ¢ neve ow Be pest _pesc Cosc$w_LENGTAI, 

; i 10 4 (SSTRSDYN_AL_LEN (DEST_DESC) ) ) ) | 
: $5 12 THEN Pg ! then allocate a temp 

: 3 1412 ; ' and use it for 

: $) 1218 4 BEGIN ! building output string 

: § 1414 4 LOCAL TEMP_DESC : S$STRSDESCRIPTOR; 

$ ai2 2 i* i h eration, 
: te is successful, continue the op 

: : 1419 ¢ i A Rote ve. fommuhes a fatal error | 
: 1418 4 i. | 
: ATUS = SSTRSALLOCATE ( 

: $68 P 1420 FRO CLER' + DEST bese CDSCSU. LENGTH), | 
; 1451 enifAP=DESCD) | 
i $33 1258 § BEGIN | 
: 5 1424 '¢ | 
: 3 1425 ! move source to temp | 


SS - . 


ee 

TRSPREF IX 16-Sep-1984 01:46:1 AX-11 Bliss-32 V4.0-74 Page 6 
a 1o=808= 1382 93:28:13 ANBRTLe SREASTAPNEE (x. 64221 . (3) 
3 5 14 § = 

g 8 14 CHSMOVE (.IN_LEN, .IN_ADOR, 

; 14 : -TEMP_DESC COSCSA, POINTER); 

; 8 14 
: 9 1430 '¢ 
: re 12 1 move destination to end of temp 
3 5 14 : CHSMOVE (.DEST_DESC CDSCS$W_LENGTH) 
> 26 1434 .DEST-DESC COSCSA POINTER. 

: 246 1435 CHSPLOS (.TEMP_DESC COSCSA_POINTER], 

3 245 14 $ »INLEN)); 

3 re 14 

3 4 1436 '+ 

: $8 1e7, switch temp and destination descriptors 

; 250 1441 5 SSTRSEXCH_DESCS (TEMP_DESC, DEST_DESC); 

3 $2) 1226 5 

3 26 144 5 1+ 

. za 1444 5 ' deallocate temp 

: 254 1445 5 !- 

s 235 1446 5 RETURN_STATUS = SSTRSDEALLOCATE (TEMP_DESC); 

: 256 1447 & END; 

; 257 1448 4 END 

3; es 1449 4 

; 259 1450 3 ELSE 

: 260 1451 3 

; 261 1436 4 BEGIN 

H $66 145 4 '¢ 

3; 2 1454 4 !' move destination down 
: 264 1455 4 != 

; 265 1456 4 CHSMOVE (.DEST_DESC HHtbrgsardit. 

: 266 1457 4 -DEST_DESC COSCSA C hosts ° 

s 267 1458 4 CHSPLOS (.DEST_DESC DSCSA_POINTER], 

; 268 1459 4 - IN, : 

; 269 1460 4 

; 270 1461 4 '¢ 

s ert 1606 4 ' move source in front of it 

3 $i¢ 146 4 Ho 

3 $0 rie: ? CHSMOVE (.IN_LEN, .IN_ADDR, .DEST_DESC CDSCSA_POINTER]); 

? ‘ 
‘375 1466 4 eae 

3 6%6 ret! ? readjust length of output 

: 78 1492 4 DEST_DESC CDSCSW_LENGTH] = .DEST_ DESC CDSC$W_LENGTH] + 
: 279 1470 4 u R; 
: 280 1471 3 END; 

: 81 10%6 § END; 

: 282 147 

| 
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STRSPREF IX 1-se -1984 01:46:1 AX-11 Bliss-32 V4.0-74 Page 7) 
1-007 e-8ep-tobe 2:40:13 YetanreSneSstapneé ox o$2:1 OF ca) | 
> 284 1474 2 !¢ | : 
; 285 1475 : Varying string destination ; 
3 1o78 ! weetertererertrererereeene ; 
3 147 le . 
; 8 1908 : 
; 289 147 COSCSK_CLASS_VSJ: | 7 
; 290 1480 BEGIN ; 
> 291 1481 LOCAL ‘ 
3 35 186 OUT_LEN ! current destination Length ° 
; @ 14 OUT“ADDR, ' current pointer to destination ‘ 
; 294 1484 TOT_LEN; ! MIN of sum of IN_LEN * OUT_LEN ; 
> 295 1485 i and MAXSTRLEN | : 
° 96 1486 ’ . 
: 297 be 14 + ; 
: 298 1488 ! set up current length and address of ist byte of data for | ; 
: + pe 2 : a varying string destination. ; 
3; wl 1491 OUT_LEN = .(.DEST_DESC CDSCSA_POINTER])<0,16> ; : 
; 0 1438 OUT-ADDR = .DEST_BESC COSCSA_POINTER] + 2 ; : 
3 0 149 TOT_LEN = MIN ( .IN_LEN + .OUT_LEN, ° 
; 304 1494 -DEST_DESC COSCSW_MAXSTRLEN]) ; : 
; 305 1495 . 
; 306 1496 IF : 
3 Or L 1497 ZIF SBLISS (BLISS16) OR ZBLISS (BLISS36) : 
; 308 U 1498 XTHEN ' except on VAX : 
: 309 U 1499 SSTRSOVERLAP ( : If dest overlaps : 
; 310 U 1500 -OUT_ADDR, ! with where it will be : 
$s 31) U 1501 .OUT_LEN ! written ; 
; 1 U 1308 CHSPCUS ¢.0UT_ADDR, ‘ 
- oy U 150 -OUT_LEN, : 
: 314 U 1504 .OUT_LEN) : 
: 315 u 1505 ; 
5 16 1506 FI : 
; si” P 1507 SSTRSOVERLAP ( ' or if dest will be ; 
; 318 P 1508 ' written on top of : 
3 319 P 1509 - IN_ADDR, ! source when moved ; 
; 320 P 1510 -IN_LEN, | : 
3 21 P 1511 CHSPLUS (.OUT_ADDR, .IN_ADDR), : 
3 $$ 1316 4 -OUT_LEN) : 
ae 151 ; HEN ! then allocate a temp | ; 
; 3246 1514 ' and use it for : 
5 tee 1515 3 ! building output string | 3 
3 See 1516 4 BEGIN ! Overlap case : 
; $35 212 ‘ LOCAL TEMP_DESC : SSTRSDESCRIPTOR; | : 
3 6USev 1519 4 ! If allocate is successful, continue the operation, : 
; 3 1330 ? otherwise remember a fatal error : 
: $ P 15 § 5 IF (RETURN_STATUS = S$STRSALLOCATE ( : 
s 3 P 15 2 .IN_LER . = , : 
: 534 1524 TEMP_DESC)) 3 
3 5 1525 4 THE 3 
3 13 $ BEGIN ! copy via temp descr after succ alloc : 
3 8 1528 ! move source to temp : 
; 339 1529 t= : 
; 340 1530 CHSMOVE (.IN_LEN, .IN_ADDR, ; 
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H 
14-Sep-1984 
-TEMP_DESC CDSCSA_POINTER)); 


14 
} move destination to end of temp 


CHSMOVE (.OUT_LEN 
TA 


. DR, 
CHSPCUS (.TEMP_ DESC CDSCSA_POINTER], 
- IN_LEN)); 


'¢ 
copy temp to varying string destination 
CHSMOVE ( .TOT_LEN 


E 
-TEMP_DESC COSCSA_POINTER], 
[OUT_RDDR) ; 


4 
deallocate temp 


RETURN_STATUS = SSTRSDEALLOCATE (TEMP_DESC); 
END; ' copy via temp descr after succ alloc 
END ! Overlap case 
ELSE 
BEGIN ! non-overlap case 
move destination down within destination siring 
CHSMOVE (MIN ( -OUT_LEN, 
DEST DESC COSCSW_MAXSTRLEN] - .IN_LEN, 
.OUT_ADDR, - 
CHS$PCUS OUT ADDR. 


+ 
move source in front of it 


CHSMOVE (MIN (.IN_LEN 
-DEST_DESC CDSC$W_MAXSTRLENJ), 


on 
-OUT_ADDR); 
END; ! non-overlap case 


'¢ 


! readjust Length of output -- the CURLEN field 
(.DEST_DESC CDSC$A_POINTER])<0,16> = .TOT_LEN ; 


'¢ 
; if truncation occurred in copying, make a note of it 


iF .IN_LEN * .OUT_LEN GTRU .DEST_DESC CDSC$W_MAXSTRLEN] 
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: 398 1388 ; THEN RETURN_STATUS = STRS_TRU ; 
: 400 1590 END; ! of DSCSK_CLASS_VS 
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: 40 1591 ‘4 
: ret 1 3 ! all other classes of descriptors describe strings that can't be 
3 tos : a7 prefixed or are unsupported classes, or are unknown classes. 
; 4 1595 2. CINRANGE, OUTRANGE): 
; 209 1 %6 RETURN_STATUS = STRS_ILLSTRCLA; 
i: ™ 
: 410 1 3 SSTRSSIGNAL_FATAL (RETURN_STATUS); ! signal severe errors 
> 411 1600 RETURN .RETORN_STATUS; : 
: 412 1601 D; ! End of STRSPREFIX 
-TITLE STRSPREFIX 
IDENT \1-007\ 
-EXTRN STRS_ILLSTRCLA, STR$_TRU 
-EXTRN STRS-NORMAL, LIB$STO 
-EXTRN STRSANALYZE_SDESC_R 
-EXTRN STRSSINIT, STRSSV_INIT 
-EXTRN STRSSALOC_SHORT 
-EXTRN STR$$Q_SHOR I 
~EXTRN STRS$_INSVIRM 
EXTRN LIBSFREE_VM, STRS_FATINTERR 
PSECT _STRSCODE,NOWRT, 
OFFC 00000 ENTRY HY 
5E 18 C2 0000 SUBL2 #24, SP 
58 01 DO 0000 MOVL #1, RETURN_STATUS 
50 08 AC DO 90008 MOVL  SRC_DESC, RO 
02 03 Ad 91 0000C CMPB =s«-3(RO), #2 
09 1A 00010 BGTRU 1$ 
59 60 3C Bong MOVZWL (RO), IN_LEN 
5A 04 Ad 00 9001 MOVL  4(ROS, IR_ADDR 
09 11 00019 BRB 2$ 
000009006 28 16 0001B 1$: JSB STRSANALYZE_SDESC_R1 
59 0 7D 00021 MOVQ RO 
58 04 AC DO 00024 2s: MOVL DEST DESC, R8 
OF 00 03 A8 BF 00028 CASEB (R8), #0, #15 
0020 002A 0020 0020 002D 3$: WORD 4$- 
a a ct: if 
a a) a if 
4 
4 


See Se Se Se Se Se Se Ge Se Se Se Ge Ge Se Ge Se Ge Se Se Se Se Be Se Se Se Ge Se Se Se 


1378 


as 


STRSOREF IX 


-007 


Osh Mu ws OMOu nM <ow 
TMMNNODOOOOOF-P- fh - we 


5B 000000006 


LEN, IN_ADDR, R1 
R1 


A 


5$: 


“~~ 
Aa 
OATS — ZOMOHUNOOACH 
eevee corcee~-Oower 


BBODOROD 


8F 


OOF O 


BLOCK) 


+ #240 


», RO 
R6, STRING BLOCK 


-2(STRING 


« RO 


o 
ve 
So 
So 
S 
So 
oS 
Oo 


~~ 


8F 


00FO 


ot 
AO 


K 
LOCK), RO 


STRING BLOC 


STRING 
RO 


ad 
~N 
- 
, 9 err atatey + | 
o 


. 
~~ 


16$: 


33 


STRING BLOCK 
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STRSPREF IX 1b-5e Sep-1984 1 AX-11 Bliss-32 V Page 12 
7-007 ee tiae es rie te ee et hd pes pe . i 
000000006 00 0 F FB CALLS TRSSINIT ; | ; 
! 000000006 : 00 iH 21$: rr Astr NORMAL RETURN_STATUS : | ; 
c6 1 ADDL2 IN ene R2 : ; 
Q000000FO aF 2 p % CMPL R2- #240 : ; 
4¢ A 001 BGTRU § : ; 
D5 0011 TSTL Re : | : 
4 12 0011 BNEG 22$ : ; 
3 D4 00119 CLRL = TEMP : ; 
11 00118 BRB 26$ : : 
0 FF ag 9€ 0011D 228: MOV =1(R2), RO : ; 
0 2 BA 121 BICB2 #7, R : : 
4 0000000060040 9E 00124 MOV STR$$Q_SHORT QCROJ, REMQUE_ADDR : 3 
53 00 84 oF 12C 23$ REMQUE 90 (REMOUE _ADBR), TEMP : ; 
5 1d 001 BVS 4$ : 5 
52 1 00 001 MOVL #1, ALLOC_DONE : : 
13 11 001 BRB 25¢ : ; 
52 D4 00137 248: = CLAL LLOC_DONE : ; 
50 04 BC 3C¢ 00139 MOVZWL abest~ DESC RO : ; 
6049 9F 001 PUSHAB {R0) CIN : 3 
000000006 00 QI FB 9140 CALLS : STRSSar OC SHORT : ; 
51 0 DO 0014 MOVL RO. RETURN. STATUS : ; 
5 52 «EB OO14A 25$ BLBS  ALLOC D 26$ : : 
5 51 £9 0140 BLBC = RETURN peratuse 29$ : : 
DA 11 00150 BRB : : 
30 51 €9 0013 26$ BLBC RETURN STATUS, 29$ : : 
146 AE 53 D0 0015 MOVL. TEMP, TEMP_DESC+4 : ; 
10. AE 59 04 BC Ail 00159 ADDW3  @DEST_DESC> IN_LEN, TEMP_DESC ; ; 
24 11 0015F BRB : ; 
14 AE 9F 00161 278 PUSHAB TEMP DE DESC +4 : ; 
08 AE 52 DO 00164 MOVL : ; 
08 AE 9F 00168 PUSHAB (SP) : : 
000000006 00 02 FB 0016 CALLS aD GET_V : ; 
51 2 4 01 VL RO Pat STATUS : 3 
09 1 €8 0017 BLBS §_ RETURN_ STATUS : : 
51 000000006 8F 00 00178 MOVL  &#STRS_ THSVIRAEMS RETURN_STATUS : ; 
04 11 OO17F BRB 258 : : 
10 AE 52 BO 00181 88: MOVW ESC : : 
5 51 DO 00185 29$: MOVL Rety nf MS TATUS. RETURN_STATUS : : 
0 51 £8 001 BLBS RETURN STATUS, 30$ : : 
0204 31 00188 BRW 57$ : : 
16 BE 6A 59 28 O18 30$ MOVC3 IN_LEN CIN, ADDR). @TEMP_DESC+4 : 1438 ; 
56 04 AC D 019 MOVL.  DEST_DESC : 1433 : 
14 BE49 04 B6 66 197 MOVC3 (R6)7 afta 6 @TEMP_DESC+4CIN_LEN] > 1436 ; 
8 AE 66 80 0019 MOVW  (R6). $STRSTEMP + 1441 : 
OC AE 04 A6 DO OOIA MOVL  4(R6S, $ST TRSTERP. DESC+4 ; 3 
12. =A 02 A6 80 O1A MOVW  2(R6). TEMP_DES : : 
5 10 AE . 1AC MOVAB TEMP bESC, RO : : 
51 36 DO 0018 MOVL 6, Ri : : 
000000006 00 16 001B JSB STRSSMOVQ_R1 : : 
10. AE AE B80 001B MOVW  $STRSTEMP"DESC, T ESC : ; 
14 =A C AE OD 1BE MOVL § $STRSTEMPDESC+4 enEAP DESC +4 : : 
3 000000006 +é8F DO 001C MOVL &#STRS NORMAL, REfURN_STATUS > 1446 ; 
14 AE ; 1CA MOVL TEMP _DESC #4 Re : : 
3€ Ce BEQL 32% : ; 
OOFO BF 10 AE 8 1D CMPW TEMP. DESC, #240 : : 
1A 1A 00106 BGTRU 31$ : : 
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Nn 3 
STRSPREF IX 16-Sep-1984 01:46:1 AX-11 Bliss-32 V4.0-74 Page 14 
1-007 13-808- 1382 93:78:13 LIBRTL.SRC STAPMER Gx 68231 ” (5) 
5 . AC 44$ BLBS § ALLOC_DONE, 45$ ; 
4 34 f9 6 at BLBC RETURR_ STATUS, 48$ : 
ae j 9 6 Be 45$ BLBC = RETURN_STATUS, 48$ : 
14) =«6OA ; DO 87 MOVL TEMP, TEMP_DESC+4 : 
10 AE 5 37 Al B ADDUS OT LEN, IR_LEN, TEMP_DESC : | 
14 Ag 9F 002C2 468 PUSHAB TEMP DESC +4 : 
04 AE 52 DO 002¢ OVL Re, &(SP) : 
04 AE 9F 0029 PUSHAB 4(SP) : 
000000006 90 FB 00 ce CALLS a, LIBSGET_VM : 
1 D 8 D MOVL RO, RETURN STATUS : 
09 1 € 06 BLBS RETURN STATUS, 47$ : 
51 000000006 BF D0 0 D MOVL #STRS_INSVIRMEM, RETURN_STATUS : 
10 AE 9% BO 00 34 47$:  MOVW  R2, TEMP_DESC ; 
58 51 DO 002E6 48$:  MOVL = RETURN_STATUS, RETURN_STATUS : 
3E 51 €9 00269 BLBC = RETURNTSTATUS. 51 : 
5 14 AE DO O02EC TEMP_DESC+4, RB + 1531 
68 6A 5 $f 002FO MOVC IN_LEN, (IN_ADDR), (R8) ; 
6948 66 57 28 002F4 MOVC3 OUT_LEN, (OOT_ADDR), (IN_LEN)CR8I + 1539 
66 68 04 AE 28 002F9 MOVC3 TOT"LEN, (R8)> (OUT : 1546 
50 000000006 8F DO OO2FE MOVL #STRS_NORMAL, RETURN_STATUS : 1551 
58 05 00305 TSTL ; 
3E 13 00307 BEQL 508 ; 
OOFO 8F 10 AE B61 00309 CMPW  TEMP_DESC, #240 : 
1A 1A 0030F BGTRU 49$ : 
51 58 p0 00311 MOVL 8, STRING BLOCK ; 
51 FE Al 3C 00314 MOVZWL <-2(STRING_BLOCK), ALLOC_LENGTH : 
51 07 00318 DECL 1 ; 
51 07 BA OO31A BICB2 #7, R1 F 
51 0000000060041 9E 0031D OVAB STR$$Q_SHORT_Q(R1), INSQUE_ADDR F 
00 «BI 68 O€ 00325 INSQUE (R8), SO(INSQUE_ADDR) ; 
1¢ (11 00329 BRB 50$ : 
14 AE 9F 0032B 49$:  PUSHAB TEMP_DESC+4 : 
04 AE 14 AE 3C O03¢6 MOVZWL TEMP"DESC, 4(SP) ; 
04 AE 9F 003 USHAB 4(SPY : 
000000006 00 02 FB 00336 CALLS #2, LIBSFREE_VM : 
07 50 £8 0033D § RETURN STATUS, ; 
50 000000006 BF DO 00340 MOVL  &#STRS$_FATINTERR, RETURN. STATUS ; 
58 50 DO 00347 50$:  MOVL | RETURN_STATUS, RETURN_STATUS ; 
2B 11 0034A 51$: 56$ t 1496 
ft Be Bee OE Me hg oe 
08 ‘§ 2 GEG Me ; 1562 | 
50 D4 00354 CLRL = RO ; 
51 57 DO 00356 53$:  MOVL —‘OUT_LEN, R1 : | 
50 51 01 99 59 CMPL = R1, “20 : 
03 15 0035c¢ BLEQ  54$ : 
51 50 06 0 3 MOVL. RO, R1 ; 
6946 rx 51 6 61 548:  MOVC3  R1. (OUT_ADDR), (IN_LEN)COUT_ADDR) : 1567 
50 59 0 66 MOVL IN_LEN > 1573 
50 68 10 0 FD 036 CMP2V #0 #16, (RB), RO ; 
03 18 6 6 BGEQ 4 55$ ; 
50 ; 3¢ MOVZWL (RB), RO ; 
66 6A 0 73 55$:  MOVC3 RO, (IN_ADDR), (OUT_ADDR) > 1575 
1 04 AC DO 00377 568: move DdEST_DESC, RI ; ted 
| 
| 


4 
STRSPREF IX bese -1984 01:46:1 AX-11 Bliss-32 V4.0-74 Page 15 
1-007 12-808-19be 04:28:18 LIBRTL.SRC STAPNER Gx 68231 . (33 
04 1 04 AE BO 0037 MOVW  TOT_LEN, @4(R1) : 
50 B : C1 5 ADDL3 Our te » IN_LEN + 1587) 
50 61 10 Q FD 0 CMP2V “#16, (RT), kon? : 
9 BGEQU £75 : 
5B 000000006 8F DO 00 MOVL #STR$_TRU RETURN STATUS : 1588 
1 B £8 00392 57$: — BLBS R TURN_STATU : 1599 
04 58 0 00 FD 9 CMPZV #3, RETURA Baws, #4 : 
09 9A BNEQ $38 : 
B DD 0039C¢ PUSHL RETURN_STATUS : 
000000006 00 gi FB 0 H CALLS @# IBSSTOP : 
50 B DO 003A5 58$ MOVL § RETURN_STATUS, RO + 1600 
04 003A8 RET : 1601 
; Routine Size: 937 bytes, Routine Base: _STRSCODE + 0000 


413 1602 1 END 'End of module 
414 1605 0 ELUDOM 
PSECT SUMMARY 

Name Bytes Attributes 

_STRSCODE 937 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
croccece Symbols -~------ Pages Processing 

File Total Loaded Percent Mapped Time 

~$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 11 0 581 00:00.8 
COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#L1SS:STRPREF 1X/0BJ=08J$: STRPREF IX MSRC$:STRPREF IX/UPDATE=(ENHS$: STRPREF IX 
937 code + 0 data bytes 
on tins 714, 


em fines 0:54. 
Lines/CPU Min: 6786 
Lexemes/CPU-Min: 3711 

Memory Used: 294 pages 


SIRSPREF Ix 


; Compilation Complete 
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